home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 60 / 060.d81 / box routine (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1989-01-01  |  547 b   |  14 lines
  1. 40000 rem*******generate variables**********
  2. 40010 ba$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  3. 40020 a$="[221][157][221][157][221][157][221][157][221][157][221][157][221][157]":fori=1to6:bd$=bd$+a$:next:return
  4. 40030 rem*********print box*************
  5. 40040 oc=peek(646):poke646,bc:rv$="":ifrvthenrv$=""
  6. 40050 poke211,bx:poke214,by:sys58732:printrv$"[176]"left$(ba$,ex-bx-2)"[174][157]";
  7. 40060 printrv$left$(bd$,bd*3):printrv$spc(bx)"[145][173]"left$(ba$,ex-bx-2)"[189]"
  8. 40070 poke211,bx:poke214,by+1:sys58732:printrv$left$(bd$,bd*3)"":poke646,oc
  9. 40080 rv=0:return
  10. 40090 rem********make box grow**********
  11. 40100 bx=bx-1:by=by-1:ex=ex+1:bd=bd+2:return
  12. 40110 rem********make box shrink********
  13. 40120 bx=bx+1:by=by+1:ex=ex-1:bd=bd-2:return
  14.